home *** CD-ROM | disk | FTP | other *** search
/ Zodiac 50 Game Pack 2 / Zodiac 50 Game Pack 2.iso / abuse / lisp / powerup.lsp < prev    next >
Lisp/Scheme  |  1995-08-31  |  987b  |  49 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licencing information for more details on usage rights
  3.  
  4. (defun key_ai () (if (touching_bg) 
  5.              (progn 
  6.                (play_sound YEAH_SOUND 127 (x) (y))
  7.                nil) T))
  8.  
  9. (defun hp_up () 
  10.     (next_picture)
  11.  
  12.     (if (and (touching_bg) (with_object (bg) (give_player_health 20)))
  13.        (progn
  14.          (play_sound HEALTH_UP_SND 127 (x) (y))
  15.          nil)
  16.       T))
  17.  
  18.  
  19. (def_char HEALTH
  20.   (funs (ai_fun hp_up))
  21.   (flags (add_front T))
  22.   (range 0 0)
  23.   (states "art/ball.spe" (stopped "heart" )))
  24.  
  25.  
  26. (defun fast_ai () 
  27.   (next_picture)
  28.   (if (touching_bg) 
  29.       (progn (with_object (bg) 
  30.               (progn
  31.                 (setq special_power FAST_POWER)
  32. ;                (user_fun SET_FAST_TIME 360)
  33.                 (make_view_solid (find_rgb 255 255 255))))
  34.          nil) T))
  35.  
  36.  
  37.  
  38. (def_char POWER_FAST
  39.   (funs (ai_fun fast_ai))
  40.   (flags (add_front T))
  41.   (range 20 20)
  42.   (states "art/misc.spe" (stopped "fast" )))
  43.  
  44.  
  45.  
  46. (setq load_warn nil)
  47. (load "register/powerup.lsp")
  48. (setq load_warn T)
  49.